home *** CD-ROM | disk | FTP | other *** search
/ Interactive Preview: Enemy of the State / Interactive Preview: Enemy of the State.iso / pc / progthis.dxr / 00023.ls < prev    next >
Encoding:
Text File  |  1998-11-18  |  394 b   |  15 lines
  1. on progBar loopNum
  2.   set theDiv to the text of member "repeatNum"
  3.   set theNudge to 270 / theDiv
  4.   if the width of sprite 22 = 270 then
  5.     nothing()
  6.   else
  7.     set the width of sprite 22 to loopNum * theNudge
  8.     set the floatPrecision to 2
  9.     set p to float(loopNum) / float(theDiv)
  10.     set p to integer(p * 100)
  11.     put "(" & p & "%)" into field "Percentage"
  12.     updateStage()
  13.   end if
  14. end
  15.